home *** CD-ROM | disk | FTP | other *** search
/ Cream of the Crop 26 / Cream of the Crop 26.iso / os2 / octa209s.zip / octave-2.09 / libcruft / blas / xerbla.f < prev    next >
Text File  |  1997-05-26  |  1KB  |  44 lines
  1.       SUBROUTINE XERBLA( SRNAME, INFO )
  2. *
  3. *  -- LAPACK auxiliary routine (preliminary version) --
  4. *     Univ. of Tennessee, Univ. of California Berkeley, NAG Ltd.,
  5. *     Courant Institute, Argonne National Lab, and Rice University
  6. *     February 29, 1992
  7. *
  8. *     .. Scalar Arguments ..
  9.       CHARACTER*6        SRNAME
  10.       INTEGER            INFO
  11. *     ..
  12. *
  13. *  Purpose
  14. *  =======
  15. *
  16. *  XERBLA  is an error handler for the LAPACK routines.
  17. *  It is called by an LAPACK routine if an input parameter has an
  18. *  invalid value.  A message is printed and execution stops.
  19. *
  20. *  Installers may consider modifying the STOP statement in order to
  21. *  call system-specific exception-handling facilities.
  22. *
  23. *  Arguments
  24. *  =========
  25. *
  26. *  SRNAME  (input) CHARACTER*6
  27. *          The name of the routine which called XERBLA.
  28. *
  29. *  INFO    (input) INTEGER
  30. *          The position of the invalid parameter in the parameter list
  31. *          of the calling routine.
  32. *
  33. *
  34.       WRITE( *, FMT = 9999 )SRNAME, INFO
  35. *
  36.       CALL XSTOPX (' ')
  37. *
  38.  9999 FORMAT( ' ** On entry to ', A6, ' parameter number ', I2, ' had ',
  39.      $      'an illegal value' )
  40. *
  41. *     End of XERBLA
  42. *
  43.       END
  44.